home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / HyperHackers.cpt / Hyper-Hackers Queue 1.0 / card_4839.txt < prev    next >
Text File  |  1989-02-26  |  7KB  |  279 lines
  1. -- card: 4839 from stack: in.0
  2. -- bmap block id: 4006
  3. -- flags: 4000
  4. -- background id: 3797
  5. -- name: TheIndex
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide field 1
  9.   hide field 2
  10.   set lockText of card field 1 to true
  11. end openCard
  12.  
  13.  
  14.  
  15.  
  16. -- part 42 (button)
  17. -- low flags: 00
  18. -- high flags: 8003
  19. -- rect: left=356 top=75 right=96 bottom=458
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: Add Keyword
  28. ----- HyperTalk script -----
  29. on mouseUp
  30.   ask "Enter New Keyword:"
  31.   if it is not empty then
  32.     put it into keyname
  33.     doMenu New Card
  34.     set the name of this card to keyname
  35.     put keyname into field keywords
  36.     get the number of lines in card field finder of card theIndex
  37.     put keyname into line it+1 of card field finder of card theIndex
  38.   end if
  39. end mouseUp
  40.  
  41.  
  42.  
  43. -- part 43 (button)
  44. -- low flags: 00
  45. -- high flags: 8003
  46. -- rect: left=76 top=73 right=94 bottom=178
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: Re-Index
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   set cursor to 4
  58.   set loc of message to 10,170
  59.   play harpsichord c
  60.   put "Sorting Reference Cards . . . Please Wait" into message
  61.   put empty into card field finder
  62.   set the cursor to 4
  63.   sort by field keywords
  64.   get the number of cards
  65.   put it into x
  66.   put 0 into y
  67.   subtract 1 from x
  68.   play harpsichord e
  69.   flash 1
  70.   put "Getting Keywords . . . Please Wait" into message
  71.   set lockscreen to true
  72.   repeat x
  73.     add 1 to y
  74.     go next
  75.     get field keywords
  76.     put it into line y of card field finder of card 1
  77.   end repeat
  78.   go card 1
  79.   set lockscreen to false
  80.   play harpsichord g
  81.   flash 1
  82.   put "Compacting Stack . . . Please Wait" into message
  83.   doMenu "Compact Stack"
  84.   play harpsichord c5 g4 e c
  85.   flash 1
  86.   put "Done" into message
  87.   wait 2 seconds
  88.   hide message
  89. end mouseUp
  90.  
  91.  
  92.  
  93.  
  94.  
  95. -- part 45 (field)
  96. -- low flags: 01
  97. -- high flags: 2007
  98. -- rect: left=76 top=96 right=307 bottom=458
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 3
  103. -- text size: 9
  104. -- style flags: 0
  105. -- line height: 12
  106. -- part name: finder
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   put the optionkey into keystate
  110.   if the selection is empty then
  111.     set lockText of the target to false
  112.     repeat two times
  113.       click at the clickLoc
  114.     end repeat
  115.     put the selection into holder
  116.     push card
  117.     visual effect wipe right to black
  118.     visual effect wipe left
  119.     find holder in field keywords -- This line is the link
  120.     if the result is not empty then
  121.       answer "No match for keyword " "e& holder"e
  122.       pop card
  123.     end if
  124.   end if
  125.   click at 0,0 --disable selection
  126.   set lockText of the target to true
  127. end mouseUp
  128.  
  129.  
  130.  
  131. -- part contents for background part 1
  132. ----- text -----
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148. -- part contents for background part 41
  149. ----- text -----
  150. What links to Patrick?
  151.  
  152. -- part contents for card part 45
  153. ----- text -----
  154.  
  155.   Welcome to hyper-Hackers
  156. A few HC questions
  157. A limitation in HC
  158. Attaching new icons to Stacks?
  159. auto disk librarian/cataloger stack?
  160. Buttons that can be held down
  161. can't find error in hypercard
  162. CatMaker
  163. closeField emulator
  164. Copy Card is really Card & Background!
  165. Copying contents of stacks
  166. Does HC work with non-Apple printers?
  167. doFKEY XCMD
  168. DoMenu and FunctionKeys
  169. Dual Scrolling Fields Possible
  170. Eliminating the card window
  171. Esperanto Stack "Bug"
  172. Fast searching in Hypercard
  173. Function
  174. Genealogy stack
  175. GetClipboard / PutClipboard XCMDs
  176. hayes and hypercard
  177. hayes and hypercard
  178. How to catch key clicks?
  179. Hyper Card Requests
  180. HyperAge address
  181. HyperAge Magazine, Volume 1, #1
  182. HyperCard bug
  183. Hypercard Card Digest Contribution
  184. HyperCard XFCN for displaying pictures?
  185. HyperCard/MultiFinder bug ?
  186. hyperhackers
  187. HyperTalk Books, How to Judge?
  188. HyperTalk Limitations/Another Wishlist
  189. Hypertext'87 Workshop mini trip report
  190. I'll Never Make You Declare Variables
  191. Input validation   (test if input is numerical)
  192. Intercepting keyDown Events
  193. Keydown messages
  194. Locking and unlocking fields made easy
  195. loss of environment
  196. Magic Sac
  197. maps in hypercards
  198. Missing CloseField message when user clicks directly on a button
  199. More on closefield
  200. Multi-Media Platforms - Call for Papers and Reviewers
  201. Printer Drivers and Hypercard
  202. Printing without dialog box
  203. Printing without dialog box.
  204. Problems with hiding the card window
  205. Re:  HYPER-HACKERS Digest
  206. Re: "Repeat with...." question
  207. Re: "Repeat with...." question
  208. Re: "Repeat with...." question
  209. Re: Copying contents of stacks
  210. Re: Copying contents of stacks
  211. Re: Copying contents of stacks
  212. Re: Dual Scrolling Fields Possible
  213. Re: hayes and hypercard
  214. Re: HyperAge Magazine, Volume 1, #1
  215. Re: HyperAge Magazine, Volume 1, #1
  216. Re: HyperCard bug  <- No, it's a feature.
  217. Re: HyperCard bug  <- No, it's a feature.
  218. Re: HyperCard bug  <- No, it's a feature.
  219. Re: HyperCard bug  <- No, it's a feature.
  220. Re: HyperCard bug  <- No, it's a feature.
  221. Re: HyperCard bug  <- No, it's a feature.
  222. Re: Hypercard Passwords Revisited
  223. Re: HyperTalk Books, How to Judge?
  224. Re: HyperTalk Books, How to Judge?
  225. Re: HyperTalk Books, How to Judge?
  226. Re: HyperTalk Books, How to Judge?
  227. Re: HyperTalk Books, How to Judge?
  228. Re: HyperText and Cross-linking
  229. Re: I'll Never Make You Declare Variables
  230. Re: Importing into a stack.
  231. Re: Input Validation
  232. Re: maps in hypercards
  233. Re: maps in hypercards
  234. Re: new book:  HYPERTALK Programming, by Dan Schafer
  235. Re: new book:  HYPERTALK Programming, by Dan Schafer
  236. Re: new book:  HYPERTALK Programming, by Dan Schafer
  237. Re: numeration problem
  238. Re: Printing changed cards in a stack
  239. Re: Re: HyperText and Cross-linking (long)
  240. Re: Shafer: HyperTalk Programming eratta
  241. Re: Shafer: HyperTalk Programming eratta
  242. Re: sources for STACKS
  243. Re: Stacks for kids...
  244. Re: Stacks for kids...
  245. Re: Ted Nelson
  246. Re: the target
  247. Re: the target
  248. Re: the target
  249. Re: the target
  250. Re: the target
  251. Re: Update of comp.binaries hypercard vote
  252. Re: Usenet answers (PrGeneral & ID 02s)
  253. Re: Various
  254. Re: wanted: HyperTalk information
  255. Re: WARNING: Bad HyperTalk books
  256. Re: WARNING: Bad HyperTalk books
  257. Re: WARNING: Bad HyperTalk books
  258. Reasons to hate your Macintosh II - #189
  259. searchscripts script
  260. Shafer: HyperTalk Programming eratta
  261. Simultaneous scrolling
  262. Size of HyperTalk programs
  263. sorting fields
  264. Stacks for kids...
  265. TEXAS free-text database/indexer/browser Hypercard stack
  266. Thanks
  267. the target
  268. Undo Your Stacks!
  269. Usenet answers (PrGeneral & ID 02s)
  270. Various
  271. Visual Effects
  272. Visual Effects
  273. Want flexible HC tone dialer!
  274. wanted: HyperTalk information
  275. WARNING: Bad HyperTalk books
  276. What is HyperCard good for?
  277. Word Alignment of Pascal Strings on Mac vs Mac 2
  278. XFCN & HyperTalk questions
  279. XFCN needs to update HyperCard screen?